home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504b.d64 / tuerme ii (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  490b  |  26 lines
  1. 0 REM      TUERME II
  2. 10 (null):(null)1:POKE53280,0
  3. 20 (null)
  4. 30 (null)1,0
  5. 40 (null)1
  6. 50 FORR=4TO0STEP-1
  7. 60 FORP=4TO0STEP-1
  8. 70 X=26*P-R*10+100
  9. 80 Y=-P*10-R*10+179
  10. 90 H=RND(1)*89    :REM  MAX. 89
  11. 100 Y=Y-H
  12. 110 GOSUB10000
  13. 120 NEXT:NEXT
  14. 130 FORI=0TO41:(null)I:NEXT:
  15. 140 FORI=223TO319:(null)I:NEXT
  16. 150 (null)50,199:(null)160,0:(null)180,0
  17. 160 (null)
  18. 1000 FORI=0TO10000:NEXT
  19. 1010 RUN
  20. 10000 (null)2:(null)X+ 8,Y-10,X+18,Y:(null)X+ 8,Y-10,X-18,Y
  21. 10010 (null)X-18,Y,X- 8,Y+10:(null)X+18,Y,X- 8,Y+10
  22. 10020 (null)1:(null)X-18,Y,X-18,Y+H:(null)X- 8,Y+10,X- 8,Y+H+10
  23. 10030 (null)X+18,Y,X+18,Y+H
  24. 10040 (null)X-18,Y+H,X- 8,Y+H+10:(null)X+18,Y+H,X- 8,Y+H+10
  25. 10050 RETURN
  26.